(define (split split1 split2)
  (lambda (painter n) 
    (if (= n 0)
      painter
      (let ((smaller ((split split1 split2) painter (- n 1))))
       (split1 painter (split2 smaller smaller))))))
